REM SCSI adapter Monitor program
REM 2/28/87 Rich Frantz
REM +++++++++++++++++++++++++
REM         EQUATES
REM +++++++++++++++++++++++++
Port0 = 8388609
REM ++++++++++++++++++++++++
REM       Display ports
REM ++++++++++++++++++++++++
 10 FOR a = 0 TO 10 STEP 2
    d(a) = PEEK(Port0 + a)
    IF d(a) <> p(a) THEN 500
 20 NEXT a
    IF x = 0 THEN 10
    PRINT  HEX$(Port0 - 1);
    FOR a = 0 TO 10 STEP 2
    PRINT " - ";
    IF p(a) > 255 THEN 100
100 PRINT HEX$(p(a));
    NEXT a
    PRINT 
    x = 0
    GOTO 10
500 x = 1
    p(a) = d(a)
    GOTO 20